Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/mac/files/ID99MENU.DIR/00205_Script_review shrink

Text File | 1999-04-29 | 511b | 22 lines

global tickrate,stagedone

property s,mypercent,mywidth,myheight

on beginsprite me
  s = the spritenum of me
  mypercent = 0
  mywidth = the width of sprite s
  myheight = the height of sprite s
end

on prepareframe me
  set the width of sprite s = float(mywidth) / 100 * (100-mypercent)
  set the height of sprite s = float(myheight) / 100 * (100-mypercent)
  mypercent = min(100,mypercent+tickrate)
end

on donestage me
  if mypercent < 100 then
    set stagedone = false
  end if
end